home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 22
/
Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso
/
Aminet
/
mus
/
misc
/
MusicIn.lha
/
musicin
/
Asmfuncs.a
next >
Wrap
Text File
|
1997-09-23
|
1KB
|
36 lines
;--------------------------------------------------------------------------------------------
;-------- some routines from encoder rewritten in asm -------
;-- ©1997 Henryk "Buggs" Richter, tfa652@cks1.rz.uni-rostock.de --
;-- date: 18.09.97 --
;--------------------------------------------------------------------------------------------
;
section grummel,code
XDEF @ASM_FastReplace
XDEF _ASM_FastReplace ; for SAS-C 6.5
;-------------------------------------------------------------------------------------------
; get 32 Samples from Buffer, convert to Double and Scale by 1/32768
;
;Inputs: a0: double *xk
; a1: short *buffer
; d0: n
;
_ASM_FastReplace
@ASM_FastReplace
subq.w #1,d0
fmove.d #0.00003051757,fp1 ;1/32768
; fmove.d #32768,fp1
Loop
move.w (a1)+,d1
ext.l d1
fmove.l d1,fp0
; fdiv.x fp1,fp0
fmul.x fp1,fp0
fmove.d fp0,(a0)
subq.l #8,a0
dbf d0,Loop
rts
END